<?php /* Copyright 2010 Karl R. Wilcox 

   Licensed under the Apache License, Version 2.0 (the "License");
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at

       http://www.apache.org/licenses/LICENSE-2.0

   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License. */


function makeChg_animal ( $node ) {
  $charge_data = array (
'scallop' => array ( 'width' => 650, 'height' => 750,
  'body' => '<g fill-rule="evenodd" stroke="#000000" stroke-width="12" ><path d="m 300,610 c 30,30 60,0 60,-60 30,30 150,30 150,-60 30,-30 90,-30 30,-150 30,0 60,-90 0,-120 C 270,160 390,-19 300,11 210,-19 330,160 26,220 c -30.5,30 0,120 0,120 -60,120 30,120 60,150 0,90 124,90 124,60 30,60 60,90 90,60 z"  />
  <path d="M 230,110 C 200,91 180,33 150,53 c -54,38 -10,127 10,137 20,10 80,-70 70,-80 z"  />
  <path d="M 35,340 150,300"  />
  <path d="m 77,490 63,-60"   />
  <path d="m 220,580 20,-60"  />
  <path d="m 360,100 c 30,-29 60,-89 60,-59 60,30 30,119 0,149 0,0 -60,-90 -60,-90 z" />
  <path d="M 540,340 450,280"  />
  <path d="M 510,490 450,400"  />
  <path d="m 360,550 0,-60"  />
</g>' ),
'bee' => array ( 'width' => 522, 'height' => 362,  'body' => '
  <g stroke="#000000" stroke-width="5" stroke-linecap="round" stroke-miterlimit="4" >
  <path d="M 286.51833,184.42653 C 286.51833,184.42653 321.21071,254.94363 351.57942,273.37083 C 381.94812,291.84933 421.89068,362.36653 416.6405,326.54173 C 410.15498,282.06963 329.85807,244.13443 326.61531,202.90513 C 323.37255,161.67574 300.57029,169.24214 300.57029,169.24214 L 286.51833,184.42653 z" />
  <path d="M 312.51188,112.87996 C 312.51188,112.87996 468.73055,81.378861 484.99582,93.320457 C 501.26109,105.26206 522.93096,113.96086 519.6882,126.98335 C 516.44544,139.95445 452.46528,161.67574 429.66301,160.59484 C 406.91222,159.51394 312.51188,134.54985 312.51188,134.54985 L 312.51188,112.87996 z" />
  <path d="M 306.54109,165.07294 C 306.54109,165.07294 404.69891,225.39853 402.69149,236.87683 C 400.16935,250.98033 297.89373,184.06623 297.43048,176.49973 C 296.96723,168.88184 302.16594,164.24934 306.54109,165.07294 z" />
  <path d="M 314.67372,135.63075 C 314.67372,135.63075 477.37791,162.75664 447.0092,188.80163 C 416.6405,214.84673 310.35004,174.69824 304.94544,169.24214 C 299.48937,163.83754 313.5928,135.63075 314.67372,135.63075 z" />
  <path d="M 294.08477,92.239557 C 294.08477,92.239557 360.12383,-2.1608139 371.49923,0.56722681 C 385.39677,3.8614512 312.51188,102.01926 304.94544,102.01926 C 297.32753,102.01926 293.00385,96.614658 294.08477,92.239557 z" />
  <path d="M 343.29241,12.61175 L 295.83488,59.142761" />
  <path d="M 201.84632,16.317761 L 256.04673,57.54716" />
  <path d="M 317.91653,78.136061 C 317.91653,92.500057 297.5102,104.14426 272.33774,104.14426 C 247.16528,104.14426 226.75895,92.500057 226.75895,78.136061 C 226.75895,63.772161 247.16528,52.12786 272.33774,52.12786 C 297.5102,52.12786 317.91653,63.772161 317.91653,78.136061 L 317.91653,78.136061 z" />
  <path d="M 320.07837,131.82175 C 320.07837,163.87564 297.25233,189.86043 269.09498,189.86043 C 240.93764,189.86043 218.11159,163.87564 218.11159,131.82175 C 218.11159,99.767959 240.93764,73.78316 269.09498,73.78316 C 297.25233,73.78316 320.07837,99.767959 320.07837,131.82175 L 320.07837,131.82175 z" />
  <path d="M 316.83561,258.80413 C 316.83561,302.25713 294.25154,337.48273 266.39268,337.48273 C 238.53382,337.48273 215.94975,302.25713 215.94975,258.80413 C 215.94975,215.35113 238.53382,180.12553 266.39268,180.12553 C 294.25154,180.12553 316.83561,215.35113 316.83561,258.80413 L 316.83561,258.80413 z" />
  <path d="M 241.9433,184.42653 C 241.9433,184.42653 207.25092,254.94363 176.88222,273.37083 C 146.51352,291.84933 106.57095,362.36653 111.82113,326.54173 C 118.30665,282.06963 198.60356,244.13443 201.84632,202.90513 C 205.08908,161.67574 227.89134,169.24214 227.89134,169.24214 L 241.9433,184.42653 z" />
  <path d="M 215.94975,112.87996 C 215.94975,112.87996 59.731093,81.378861 43.465822,93.320457 C 27.20055,105.26206 5.5306802,113.96086 8.7734399,126.98335 C 12.0162,139.95445 75.996364,161.67574 98.798627,160.59484 C 121.54941,159.51394 215.94975,134.54985 215.94975,134.54985 L 215.94975,112.87996 z" />
  <path d="M 221.92055,165.07294 C 221.92055,165.07294 123.76273,225.39853 125.77015,236.87683 C 128.29229,250.98033 230.56791,184.06623 231.03116,176.49973 C 231.49441,168.88184 226.2957,164.24934 221.92055,165.07294 z" />
  <path d="M 213.78791,135.63075 C 213.78791,135.63075 51.083733,162.75664 81.452436,188.80163 C 111.82113,214.84673 218.11159,174.69824 223.51619,169.24214 C 228.97226,163.83754 214.86883,135.63075 213.78791,135.63075 z" />
  <path d="M 234.37686,92.239557 C 234.37686,92.239557 168.3378,-2.1608139 156.96241,0.56722681 C 143.06487,3.8614512 215.94975,102.01926 223.51619,102.01926 C 231.1341,102.01926 235.45778,96.614658 234.37686,92.239557 z" />
  </g>
  <g fill="none" stroke="#000000" stroke-width="20" stroke-linecap="round" >
  <path d="M 230.05318,223.49403 C 257.12765,207.22873 301.65126,221.33223 301.65126,221.33223" />
  <path d="M 224.95742,256.84813 C 255.94379,241.81823 306.7985,254.84073 306.7985,254.84073" />
  <path d="M 228.09723,290.61403 C 257.53943,275.06933 305.82052,288.55513 305.82052,288.55513" />
     </g>', ),
  'boars-head' => array ( 'width' => 174, 'height' => 128,  'body' => '<g stroke="#000000" stroke-width="2"><path d="m 87,121 c -15,-3 -42,-15 -43,-19 0,-3.7 1,-4.3 6,-2.4 9,3.4 12,3.4 12,1.4 0,-1 -1,-1.3 -2,-1.3 C 55,99.7 32,92.6 26,89.2 17,84.2 11,78.5 7,71.3 5,67.7 4,64.4 4,63.9 c 1,-0.6 5,1.2 11,3.8 7,3.6 12,6.8 18,11.9 5,3.9 9,7.7 11,8.6 4,1.9 16,3.3 16,1.8 0,-0.5 -3,-1.2 -6,-1.6 -7,-0.6 -9,-1.5 -15,-5.8 -6,-5 -9,-9.8 -9,-18 C 29,58 29,56.4 32,49.2 35,40.4 45,22 47,20 c 1,-1 1,0 2,5 0,4 2,10.6 3,14.7 3,6.6 3,8.5 3,14.7 0,6 -1,8.5 -5,16.2 -3,6.5 -4,9.1 -3,9.1 0,0 3,-3.3 5,-7.5 3,-7 4,-7.5 6,-7.3 3,0.3 3,-0.1 5,-4.9 2,-6.2 8,-14.3 13,-19.3 4,-4 4,-3.6 -1,9 -2,4.7 -4,10.4 -4,12.8 l -1,4.2 5,0 c 5,0 6,-0.9 4,-5.5 -1,-5 0,-5.2 3,-0.6 l 3,3.9 4,-1.9 c 4,-2.1 6,-6.6 6,-11.4 0,-3 5,-8.5 8,-8.5 1,0 5,1.1 9,2.4 4,1.6 10,2.7 17,3.1 l 10,0.7 -1,-3.3 c -2,-7.7 -1,-12.6 7,-22.6 3,-4 5,-7 6,-13 1,-7 2,-7 3,-5 1,1 2,5 3,9 l 2,6 2,-3 c 2,-4 3,-3 3,3 0,3 0,5 -2,7 -1,1 -2,3 -2,4 0,2 2,1 4,-3 l 2,-3 0,4 c 0,5 -1,7.4 -5,10.6 l -2,2.3 2,-0.6 c 2,-0.3 3,-0.4 3,-0.1 0,0.3 -2,2.8 -4,5.5 l -5,5.1 0,25.8 c 0,22.1 0,26.4 -1,27.4 -1,1 -5,1 -9,2 -10,0 -11,1 -6,6 2,1 3,3 3,3 0,0 -2,0 -5,0 -2,-1 -6,-1 -8,-1 l -3,0 4,3 4,4 -6,0 c -7,0 -21,-2 -28,-4 -7,-2 -7,-1 -1,3 2,2 1,2 -2,2 -2,0 -7,-1 -10,-2 z" />
      <path  d="m 139,93.2 c 2,-1.3 4,-3.9 5,-5.6 2,-2.8 2,-3 1,-2.1 -1,0.6 -3,2 -4,3.2 -1,1.2 -3,2.7 -4,3.3 -1,0.6 0,-1.1 2,-3.7 4,-4.4 7,-9.9 7,-12.8 0,-0.7 -1,1 -3,3.8 -6,8 -7,8.6 -4,1.3 2,-3.5 3,-7.9 4,-9.9 0,-2.5 -1,-0.8 -5,6.5 -3,5.5 -7,12.6 -9,15.7 -3,3.1 -5,5.9 -5,6.2 0,0.9 12,-3.5 15,-5.9 z" />
      <path  d="m 85,95.6 c 7,-3.9 11,-8.1 10,-9 -1,-1.4 -10,0.2 -10,1.9 -1,1.2 0,1.4 2,0.9 l 4,-0.7 -4,2.3 c -4,2.1 -8,6.7 -6,6.7 0,0 2,-0.9 4,-2.1 z" />
      <path fill="#333333" d="m 117,68.7 c 5,-2.6 5,-4.8 -1,-7.3 -4,-1.5 -5,-1.7 -8,-0.8 -3,0.6 -5,1.7 -6,2.5 -2,1.5 -2,1.5 0,4.1 3,3.1 5,3.3 5,0.4 1,-3.5 3,-3.4 4,0.1 1,3.6 1,3.7 6,1 z" />
      <path d="m 46,67.4 c 2,-3.5 3,-7.9 1,-10 -1,-1.8 -2,-1.7 -4,1.7 -1,2.8 -2,4.5 -1,7.2 0,4 2,4.3 4,1.1 z" />
      <path  d="m 39,59.2 c 2,-3.6 2,-4.8 1,-6.9 -2,-3.5 -2,-3.2 -5,1.4 -2,4.5 -2,5 -1,8.5 1,3.4 3,2.5 5,-3 z" />
      <path  d="m 128,43.3 c -3,-3 -4,-4 -4,-8.3 0,-5 0,-6 5,-10 6,-6 7,-8 8,-15 0,-3 1,-5 1,-5 1,0 2,2 3,5 3,6 3,6 5,5 3,-3 1,2 -2,7 -7,8 -9,12 -9,18.8 1,5.7 1,5.9 -2,5.9 -1,0 -3,-1.4 -5,-3.4 z" />
    </g>',
'features' => array (
  'armed' => array ( 'body' => '<g  stroke="#000000" stroke-width="2"><path d="M 69,97.7 C 70,95.8 70,91 69,87 67,73.1 69,61 75,45.2 c 1,-4.4 -5,4.3 -8,10.8 -5,9.5 -6,20.7 -5,34.2 1,5.5 2,10.8 2,10.8 0,1 1,1 3,1 1,-1 2,-2 2,-4.3 z" />
      <path d="M 80,94.7 C 85,87.4 87,73 84,67.2 l -2,-3 0,5.3 c 0,6 -3,14.8 -8,21.6 -1,2.5 -3,5.6 -3,7 0,2.9 0,2.9 3,1.2 2,-0.7 5,-2.8 6,-4.6 z" />
      </g> ' ),
    )), // TODO bears head
'bears-head' => array ( 'width' => 500, 'height' => 420, 'body' => 
   '<path d="M 303,98.6 C 294,57.1 325,40 347,20 c 17,7.1 42,24.3 39,35.7 -3,11.4 -3,41.4 -22,50.3 -18,8 -61,-6 -61,-7.4 z" stroke="#000000" stroke-width="5" />
    <path d="M 303,97.1 C 270,124 204,106 181,124 c -22,19 10,49 -21,57 -31,9 -140,33 -142.9,58 -2.8,24 -1.4,75 54.3,80 55.6,4 199.6,-2 197.6,22 -3,25 -153,10 -168,33 -13.9,23 382,76 382,19 0,-57 -79,-212 -66,-230 13,-19 55,-110.1 27,-140.1 -40,-7.1 -75,83.1 -93,81.1 -17,-1 -50,-6.9 -48,-6.9 z" stroke="#000000" stroke-width="5" />
    <path d="m 184,166 c 39,7 57,15 79,18 21,3 -32,37 -46,27 -14,-10 -31,-45 -33,-45 z" fill="#4d4d4d" />
    <path d="m 326,48.6 c 23,35.7 40,52.4 8,51.4 -31,-1.4 -34,-40 -25,-40 8,0 14,-11.4 17,-11.4 z" fill="#808080"  />
    <path d="m 383,94.3 c 23,0 48,-14.3 47,9.7 -1,25 -11,52 -37,30 -26,-21 -12,-38.3 -10,-39.7 z" fill="#808080" />',
    'features' => array (
      'tongued' => array ( 'body' => '<path d="M 239,333 C 91.5,323 84.3,325 42.9,359 15.8,383 50,402 84.3,370 103,357 234,359 253,351 c 18,-7 -9,-15 -14,-18 z" stroke="#000000" stroke-width="5" />'),
      'muzzled' => array ( 'notpresent' => '', 'body' =>
              '<path d="m 64.3,214 c 34.3,52 79.7,96 81.7,177 2,0 53,15 53,15 0,0 -20,-96 -20,-96 -3,-12 132,-38 158,-46 14,1 33,56 17,153 23,0 7,1 40,0 32,-64 -23,-142 -7,-167 14,-21 26,-20 49,-24 -9,-10 -17,-39 -17,-39 0,0 -36,17 -49,19 -12,-10 -61,-105 -77,-103 -16,1 -27,3 -36,11 -8,9 97,103 70,117 -27,15 -112,50 -153,43 -34,-6 -57,-60 -67,-68 -9.9,-9 -37,10 -42.7,8 z" stroke="#000000" stroke-width="2" />' ),
    )),
'stags-head' => array ( 'width' => 500, 'height' => 500, 'body' =>
  '<path d="m 241,491 c -20,-12 -31,-37 -31,-60 -4,-20 -21,-34 -34,-49 0,-16 5,-31 7,-47 -16,-7 -46,7 -65,-7 -14,-14 -39.5,-18 -50.2,-32 18.6,-11 41.2,-18 63.2,-19 18,-3 40,13 54,7 -17,-10 -34,-25 -56,-27 -20,-1 -43.3,-2 -57.2,-19 -19.7,-23 21.6,-8 31.2,-4 15,4 51,0 38,-24 -20,-17 -49.3,-20 -67.6,-40 -14,-5 -21.8,-29 2.4,-20 22.3,15 49.2,21 73.2,32 14,-7 -17,-24 -24,-32 C 103,128 68.7,123 47.1,100 42.2,90.5 32,58.1 51.9,78.5 61.1,89.2 71.9,86.6 61,72.9 58.7,52.8 28.9,34.1 45.3,14.5 c 13.2,9 22.1,23 37.3,11.5 25.4,7.9 8.1,53.1 34.4,57.6 15,-7.8 -14,-47.1 10,-34.5 19,18.5 9,43.9 17,65.9 10,17 16,44 38,48 4,22 19,35 27,56 10,19 6,51 36,47 20,0 51,12 48,-18 2,-27 14,-50 26,-73 2,-12 10,-21 3,-32 8,-13 30,5 34,-18 13,-21 3,-43.7 7,-66 0,-15 27,-41.4 25,-12.2 -5,21.8 20,35.7 17,6 0,-16 1,-50.29 23,-27.9 14,14 9,-33.06 29,-19.13 19,18.23 -2,46.93 -17,61.73 -11,4.8 -22,33.5 -1,17 14,-10.7 26,-39.4 41,-39.3 13,20.7 -5,43.3 -24,49.3 -6,23.5 -34,24.5 -51,36.5 -12,8 -50,28 -40,39 23,-7 47,-15 67,-27 29,-3 -5,33 -17,38 -16,14 -59,15 -42,44 22,5 42,-10 64,-10 9,22 -34,27 -50,34 -19,13 -56,11 -63,35 25,-2 49,-20 75,-16 15,4 61,10 30,28 -19,18 -41,35 -68,36 -10,2 -32,-7 -28,10 11,28 -10,52 -26,71 -13,18 5,45 -16,62 -12,16 -31,21 -50,16 z M 193,258 c 2,-16 -20,-17 -21,-32 -26,5 11,35 21,32 z m 147,-21 c 14,-17 -13,-17 -13,0 3,3 11,6 13,0 z " stroke="#000000" stroke-width="8" />
  <path d="m 249,491 c 12,-1 17,3 0,2 l -1,-1 1,-1 z m -12,-6 c -14,-12 -3,-8 7,-5 15,-13 49,-2 50,-31 -8,-8 -24,20 -20,-1 7,-9 25,-7 11,-21 -12,-18 -21,-43 -7,-63 7,-19 51,-27 30,3 -6,18 -37,32 -19,52 18,9 12,43 -2,55 -12,17 -32,17 -50,11 z m -21,-31 c -9,-11 12,4 0,0 z m 0,-19 c -10,-11 -2,-23 5,-7 1,1 -5,12 -5,7 z m 105,-51 c 14,-18 5,-40 -3,-57 -10,-30 24,-1 29,-11 0,-9 -5,-21 5,-26 14,-16 36,-25 55,-16 -20,8 -38,28 -46,47 20,8 35,-13 52,-21 7,-5 19,-30 21,-14 -19,14 -33,36 -59,40 -15,8 -56,-10 -44,22 7,14 -8,46 -12,43 l 1,-3 1,-4 z m -87,5 c -12,-13 -35,-13 -44,-30 -20,4 12,-37 -16,-31 -22,6 33,-20 17,4 -7,17 19,15 23,27 15,-13 26,18 23,32 1,9 -1,0 -3,-2 z m -53,-7 c -2,-14 0,-25 2,-5 1,3 3,11 -2,5 z m 68,-55 c -23,1 -32,-15 -43,-31 -8,-1 -29,-8 -14,-14 25,22 26,-22 18,-37 -2,-9 -13,-47 -2,-19 6,21 9,47 38,44 3,3 33,-1 18,3 -20,0 -21,14 -17,31 -7,10 -6,27 9,17 26,-6 28,-35 39,-53 14,18 39,-10 55,-17 13,-8 15,-38 -6,-29 -15,-6 -30,19 -14,23 -9,7 -37,22 -20,0 4,-14 37,-33 20,-43 -25,15 3,-15 -8,-25 3,-14 12,-24 5,-35 19,-12 7,33 26,14 17,-19 37,-35 61,-43 21,-7 30,-24.8 40,-42.5 6,-13.4 31,-34.2 26,-5.8 -4,15.8 -15,20.8 -28,28.1 -6,25.2 -37,24.2 -54,37.2 -15,13 -40,20 -42,42 23,0 -13,15 5,21 20,-6 44,-12 57,-29 -3,-8 -29,1 -9,-6 8,-4 43,-23 28,-1 -17,24 -47,31 -71,45 2,14 1,28 -1,40 13,7 31,-2 33,-15 9,0 49,-20 32,1 -26,17 -58,20 -86,34 -22,3 -26,25 -42,33 -16,11 -32,40 -53,32 z M 143,317 c -9,-12 -35,-22 -35,-34 16,-1 44,-9 39,9 16,5 21,33 0,29 l -2,-2 -2,-2 z M 74.4,300 c -10.5,-16 18.5,5 0,0 z M 169,288 c 8,-2 1,6 0,0 z m 8,-15 c 8,-1 0,6 0,0 z m -31,-15 c -7,-4 -1,-20 -17,-15 -9,-1 -30.6,-3 -10,-5 11,1 22,-4 29,-10 -4,9 16,37 -2,30 z M 77.3,239 c -19.5,-14 6.6,-14 13.6,-4 -8.1,9 2,16 -13.6,4 z m 19.3,-2 c 9.4,-1 0.5,6 0,0 z M 162,214 c 5,-18 -15,-6 -13,6 -7,-13 14,-25 -8,-31 -10,-3 -37,-20 -39,-9 20,19 -14.5,-1 -19.9,-8 -10.1,-3 -30.5,-27 -6.7,-18 21.9,14 47.6,20 71.6,30 30,8 -17,-38 9,-16 14,-12 38,4 25,23 -5,11 -9,28 -19,31 -1,-2 0,-5 0,-8 z m 220,-46 c 20,-8 6,5 0,0 z M 152,146 c -16,-17 -23,-40 -24,-62.2 1,-11 -10,-27.6 -6,-33.9 21,16.7 9,44.7 18,66.1 2,11 24,35 18,36 l -3,-2 -3,-4 0,0 z m -28,-2 c -20,-20 30,22 0,0 z M 70.8,114 C 59.9,108 41,90.2 47.2,80.6 55.7,91.4 81.3,95.9 65.6,76.4 74.4,79.7 97.5,101 77,111 c 9.9,12 3.5,7 -6.2,3 z M 407,96.4 c -2,-18.6 41,-38.2 24,-50.2 -12,0.5 -27,39.3 -23,8.9 2,-14.3 1,-48.11 21,-25.7 15,9.9 14,-40.2 30,-14.3 6,25.9 -17,45.3 -33,62.5 -4,9.4 -3,23.4 -19,18.8 z M 99.8,89.2 C 88.4,84.6 94,62.4 80.5,63.8 67.2,62.3 59.1,73.8 58.3,53.8 48.5,49.5 36.4,17.5 50.3,20.7 c 8.4,14.9 20.7,18.1 32.8,8.9 18.9,14 8.6,42 24.9,58.7 2,6.1 -6,1.9 -8.2,0.9 z m 267.2,-1 c -2,-16.5 -2,-44.6 16,-51.4 -1,14.9 4,39.2 18,40.6 -10,7.2 -31,4.4 -34,13.5 0,-0.9 0,-1.8 0,-2.7 z" fill="#000000" />' ),
'tiger' => array ( 'width' => 500, 'height' => 400, 'body' =>
   '<path d="m 200,230 20,10 -20,10 20,0 -20,10 20,10 -30,10 30,0 -30,10 20,0 -20,20 20,0 -20,10 20,0 -20,10 20,10 -30,0 20,20 c 0,0 -10,0 -20,0 0,0 10,10 10,10 l -10,0 0,-10 -10,20 -10,0 0,-10 0,-10 -10,20 -10,-10 10,-10 -10,0 -10,0 20,-10 c 0,0 10,-80 10,-80 -10,0 -50,-50 -40,-80 0,-20 50,-60 20,-90 0,-1 0,-2 0,-2 l -10,12 0,-11 -10,11 0,-10 -10,10 0,-10 -10,20 -6,-10 -6,10 L 76,98 140,86 C 150,44 71,75 71,75 71,75 56,61 57,50 c 0,-11 43,-2 53,-5 20,-3 30,-35 60,-11 0,2 0,-27.2 30,-27.3 0,-3.8 0,29.3 0,29.3 l -10,16 c 0,0 10,-13 10,-14 0,0 20,1 20,1 l -20,16 20,0 -20,17 30,0 -30,12 30,3 -30,9 20,4 -20,20 30,0 -30,10 c 0,0 30,0 30,0 0,0 -20,20 -10,10 10,0 150,30 160,10 10,-20 50,-20 60,-40 0,-12 -60,-12 -70,-12 0,0 0,22 0,22 0,0 -10,0 -10,-10 0,0 -10,10 -10,10 0,0 -10,-10 -10,-10 l -10,10 c 0,0 0,-20 -10,-20 0,10 -40,-7 -40,-29 10,-24 50,-33 60,-40 10,-8 60,-11 60,-11 0,0 -20,30 -40,24 -10,-5 -80,19 -60,39 20,17 140,-19 150,27 10,20 -40,40 -50,40 -10,10 30,0 20,20 0,10 -20,60 30,50 20,0 30,-10 30,-10 l -20,20 20,-10 -20,20 20,0 -20,10 20,10 -20,10 10,0 -20,10 20,10 -20,10 10,0 -20,20 20,0 -20,10 20,10 -30,10 10,0 -10,20 -10,-10 0,10 -20,0 0,0 0,10 -20,-10 10,-10 -10,0 -10,-10 20,-10 c 0,0 30,-80 20,-80 -30,10 -50,0 -50,-30 0,-10 0,-30 10,-40 -50,20 -60,10 -80,30 -10,20 -60,50 -80,40 M 340,29 c -10,-6 0,-16 -30,-3 10,5 30,1 20,12 m 40,152 c -20,10 -40,0 -40,60 0,20 20,20 30,20 10,-10 -80,60 -80,60 l -10,0 -10,10 10,0 0,10 0,10 10,-10 0,10 10,10 10,-20 10,10 10,-10 20,0 -10,-10 20,0 -10,-10 20,0 -10,-20 30,0 -10,-10 20,0 -10,-10 20,0 -10,-10 20,-20 c 0,0 -20,10 -40,0 -10,-20 -10,-40 -10,-40 M 55,55 C 33,58 34,57 28,79 41,67 57,63 62,67 67,72 57,56 55,55 z m 65,155 c 0,0 -46,0 -46,0 l -7,-50 5,-20 -10,0 -5,10 -5,-10 -12,0 6,10 -11,0 -7,10 13,10 -4,0 -11,0 -2,10 11,0 -9,20 16,-10 -11,20 18,-10 -17,30 18,-10 -14,20 18,0 -14,20 22,-20 0,20 15,-10 -1,20 15,-20 2,20 17,-20 0,20 10,-20 10,20 10,-20" stroke="#000000" stroke-width="4" />
       <path d="m 160,30 c -30,8 -30,5 -30,13 0,8 20,0 20,-5 0,-6 10,-8 10,-8 z" fill="#000000" />
    <path d="m 360,100 10,20 m -20,-20 0,20 m -10,-21 -10,11 m -170,160 10,-40" stroke="#000000" stroke-width="6" fill="none" />',
    'features' => array (
      'tongued' => array ( 'body' => '<path d="m 130,83 c -10,-9 -71,8 -71,1 0,-7 -19,-8 -12,3 7,10 33,2 42,-1 9,-4 51,0 41,-3 z" stroke="#000000" stroke-width="2" />'),
      'armed' => array ( 'colour' => '#000000', 'body' =>
              '<path d="m 420,370 10,10 10,0 0,-10 0,-10 0,0 -10,10 -10,0 z m -20,10 10,10 0,0 0,-10 10,-10 -20,10 z m -20,-10 -10,10 10,10 0,-10 10,0 -10,-10 z m -10,-20 c 0,0 -10,10 -10,10 l 0,10 10,0 20,-10 -20,-10 z m -80,20 10,10 10,-10 10,-10 -20,-10 -10,20 z m -10,-10 -20,10 10,10 10,-10 10,0 -10,-10 z m -10,-20 -10,10 -10,10 10,10 0,-10 10,0 0,-20 z m 0,-10 c -10,0 -20,0 -20,0 l -10,10 10,10 10,-10 10,-10 z m -100,50 10,10 10,0 0,-10 10,-10 -20,-10 -10,20 z m -20,0 0,10 10,10 10,-20 -20,0 z m -10,-10 -10,10 10,10 0,-10 10,0 -10,-10 z m -10,-10 -10,0 0,20 0,-10 20,0 -10,-10 z M 29,170 18,160 8,170 l 3,10 4,-10 9,10 5,-10 z m 12,-20 -16,-10 -13,10 17,10 12,-10 z m 13,-10 -9,-10 -16,0 12,10 14,0 m 19,0 -7,-20 -14,0 10,20 11,0 z" />' ),
    )),
'unicorn' => array ( 'width' => 500, 'height' => 500, 'body' => // TODO mane path too short on unicorn?
   '<g stroke="#000000" stroke-width="4">
    <path d="m 120,64 0,-49 10,28 30,-31 -10,21 30,-12 -20,26 40,-5 -40,26 30,-5 30,-8 -10,18 -30,-2 -10,8 60,7 -30,8 -20,2 20,4 40,10 -30,0 -30,10 30,0 10,10 30,10 -30,0 -30,-10 0,10 30,0 30,10 10,10 -40,0 -30,-10 30,10 40,10 -60,0 40,10 20,0 0,10 -50,0 40,10 -10,10" />
    <path d="m 82,92 c -26,18 -64,4 -62,38 25,10 60,-41 74,0 0,0 -59,20 -59,20 0,0 19,30 44,0 21,-30 41,60 18,130 -26,80 123,50 143,10 10,-40 100,-40 100,-40 -40,50 50,100 70,90 10,-10 -50,100 -50,100 0,0 30,0 30,10 0,10 60,-110 60,-120 0,-20 -50,0 -50,-50 10,-30 0,-80 -20,-80 -30,-10 60,-20 70,-40 10,-30 0,-60 -50,-50 -50,10 -110,20 -110,20 0,0 -30,-30 30,-43 60,-14 60,-25 60,-32 -30,-5 -80,14 -100,41 -10,24 -30,44 30,44 20,0 20,10 20,20 10,0 20,-20 20,-20 l 0,20 20,-30 0,20 10,-20 c 0,0 60,-20 60,20 -40,30 -50,20 -80,40 -80,20 -110,30 -150,10 C 200,200 170,150 160,94 150,43 68,76 82,92 z" />
    <path d="m 94,290 c -5,0 -44,0 -62,-10 -12,0 -36,40 -7,80 11,20 -2,40 3,40 4,10 26,0 30,10 4,0 -5,-90 -14,-90 -8,-10 44,30 86,10" />
    <path d="m 150,280 c 0,0 -20,60 -10,100 10,30 -10,60 10,80 10,20 10,-10 30,0 0,-20 -30,-70 0,-90 -10,-40 0,-80 0,-80" />
    <path d="m 340,250 c -10,0 -100,40 -10,100 -10,20 -60,70 -50,80 0,10 20,0 20,10 0,10 40,-80 60,-70 20,0 30,-30 20,-30 -30,-10 -80,-70 -40,-90 z" />
    <path d="m 47,160 -5,20 -8,10 16,-10 18,20 -4,-20 17,0 -11,-10 -1,-10 -1,0 -21,0 z" />
    <path fill="#2F2F2F" d="m 370,450 -20,20 m 10,-30 -20,20 10,10 0,10 20,-10 20,-20 -30,-10 z m -80,0 -20,20 m 20,-30 -30,20 10,0 0,10 20,10 c 0,0 20,-30 20,-30 -10,0 -20,-10 -20,-10 z m -120,40 -10,20 0,10 0,0 m 0,-40 c 0,0 -20,40 -10,40 10,-10 10,0 10,0 l 0,0 20,-10 10,-30 -30,0 z m -109,-50 -8,20 0,0 c 0,0 10,-20 8,-20 z m -12,0 -7,20 9,0 0,10 21,-10 4,-20 -27,0 z" />
    <path d="m 150,39 c -10,9 -20,20 -20,36 m -10,3 c 0,-15 10,-42 30,-43 10,-2 10,43 0,47 -10,3 -10,3 -10,2" />
    <path d="m 310,69 c 0,0 20,-24 -30,-8 -40,16 40,-3 20,14 -10,16 10,-5 10,-6 z" />
    <path fill="#F0F0F0" d="m 34,130 -1,10 7,0 3,-10 -9,0 z m -11,0 0,10 7,0 2,-10 -9,0 z" />
    <path d="m 110,79 c -15,4 -24,11 -17,17 7,4 17,-17 17,-17 z" fill="#000000" />
    </g>',
    'features' => array (
      'armed' => array ( 'body' => '<path stroke="#000000" stroke-width="4" d="m 100,54 -5,12 1,-2 M 95,42 91,59 m -1,-25 -5,14 0,-1 m -6,-21 0,16 m -10,-26 1,17 0,2 M 56,11 58,23 M 43,8.2 45,17 M 97,71 C 89,66 79,26 24,6.4 6,-6.6 95,5.9 110,69 c 10,5 0,-3 -13,2 z" />'),
      'tongued' => array ( 'body' => '<path stroke="#000000" stroke-width="2" d="m 86,130 c -4,-10 -42,0 -50,10 -9,10 -21,0 -32.2,10 -0.9,10 33.2,10 37.2,0 11,-20 47,-20 45,-20 z" />' ),
    )),
);
  $type = $node->get_attribute('subtype');
  if ( isset($charge_data[$type]) ) {
      $retval = $charge_data[$type];
      $retval['demi'] = 'horizontal';
      return $retval;
  } else {
    my_trigger_error ( "No animal $type", E_USER_WARNING, __FILE__, __LINE__ );
    return null;
  }
}
?>
